home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / DuchessLuynes.dxr / playing cards_58_tableau cards.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  2.9 KB  |  97 lines
  1. property spriteNum, row, motion, location, fp, undercard
  2. global tableau, stock, equal, getlist, godlist, reserve, currentsel, dimpos, extras, points, foundation, mysuitb, mysuitt
  3.  
  4. on beginSprite me
  5.   row = determinerow()
  6.   location = sprite(spriteNum).loc
  7.   undercard = sprite(spriteNum - 4)
  8.   tableau.addProp(row, new(script("card pile")))
  9. end
  10.  
  11. on determinerow me
  12.   if spriteNum = 17 then
  13.     return #one
  14.   else
  15.     if spriteNum = 18 then
  16.       return #two
  17.     else
  18.       if spriteNum = 19 then
  19.         return #thr
  20.       else
  21.         if spriteNum = 20 then
  22.           return #fou
  23.         end if
  24.       end if
  25.     end if
  26.   end if
  27. end
  28.  
  29. on mouseDown me
  30.   if sprite(spriteNum).member <> member("empty", "playing cards") then
  31.     puppetSound(3, member("pick card", "100GPak Generic SFX"))
  32.     sprite(spriteNum).locZ = spriteNum + 1000
  33.     getlist = tableau[row]
  34.     motion = timeout(string(spriteNum)).new(5, #moving, me)
  35.     if tableau[row].getcardcount() > 1 then
  36.       undercard.member = member(tableau[row].cards[tableau[row].getcardcount() - 1].membername, "playing cards")
  37.     else
  38.       undercard.member = member("empty", "playing cards")
  39.     end if
  40.   end if
  41. end
  42.  
  43. on moving me
  44.   if the mouseDown then
  45.     sprite(spriteNum).loc = the mouseLoc
  46.   else
  47.     if the mouseUp then
  48.       motion.forget()
  49.       sprite(spriteNum).locZ = spriteNum
  50.       abort()
  51.     end if
  52.   end if
  53. end
  54.  
  55. on mouseUp me
  56.   if equal then
  57.     puppetSound(3, member("pick card", "100GPak Generic SFX"))
  58.     sprite(currentsel).member = member(sprite(spriteNum).member.name, "playing cards")
  59.     godlist.addCard(currentsel)
  60.     tableau[row].cards.deleteOne(tableau[row].getlastcard())
  61.     sprite(spriteNum).member = member("empty", "playing cards")
  62.     sprite(spriteNum).loc = location
  63.     getlist = VOID
  64.     godlist = VOID
  65.     equal = 0
  66.     points = points + 10
  67.     checkwin()
  68.     if foundation[sprite(currentsel).row].cards.count = 1 then
  69.       if (sprite(currentsel).row = #fone) or (sprite(currentsel).row = #ftwo) or (sprite(currentsel).row = #fthree) or (sprite(currentsel).row = #ffour) then
  70.         put "jello"
  71.         mysuitb.add(foundation[sprite(currentsel).row].cards[1].suit)
  72.         put mysuitb
  73.       end if
  74.       if (sprite(currentsel).row = #ffive) or (sprite(currentsel).row = #fsix) or (sprite(currentsel).row = #fseven) or (sprite(currentsel).row = #feight) then
  75.         put "hello"
  76.         mysuitt.add(foundation[sprite(currentsel).row].cards[1].suit)
  77.         put mysuitt
  78.       end if
  79.     end if
  80.     currentsel = 0
  81.     if tableau[row].getcardcount() = 0 then
  82.       sprite(spriteNum).member = member("empty", "playing cards")
  83.     else
  84.       sprite(spriteNum).member = member(tableau[row].getlastcard().membername, "playing cards")
  85.     end if
  86.   else
  87.     if not equal then
  88.       puppetSound(3, member("drop card", "100GPak Generic SFX"))
  89.       sprite(spriteNum).loc = location
  90.       getlist = VOID
  91.     end if
  92.   end if
  93.   if tableau[row].getcardcount() = 0 then
  94.     sprite(fp - 1).member = member("empty", "playing cards")
  95.   end if
  96. end
  97.